Public Function New( _
   ByVal comparer As IComparer(Of TKey), _
   ByVal copyFrom As IEnumerable(Of KeyValuePair(Of TKey,TValue)) _
)

public BTreeDictionary<TKey,TValue>( 
   IComparer<TKey> comparer,
   IEnumerable<KeyValuePair<TKey,TValue>> copyFrom
)

BTreeDictionary<int, string> data = new BTreeDictionary<int, string>(Comparer, GetSample());
Assert.IsFalse(data.IsReadOnly);
            
BTreeDictionary<int, string> copy = data.MakeReadOnly();
Assert.IsFalse(ReferenceEquals(data, copy));
Assert.AreEqual(data.Count, copy.Count);
Assert.IsTrue(copy.IsReadOnly);

Assert.IsTrue(ReferenceEquals(copy, copy.MakeReadOnly()));
data = copy.Clone();
Assert.IsFalse(data.IsReadOnly);
Assert.IsFalse(ReferenceEquals(copy, data));
Assert.AreEqual(data.Count, copy.Count);

Dim data As New BTreeDictionary(Of Integer, String)(Comparer, GetSample())
Assert.IsFalse(data.IsReadOnly)

Dim copy As BTreeDictionary(Of Integer, String) = data.MakeReadOnly()
Assert.IsFalse(ReferenceEquals(data, copy))
Assert.AreEqual(data.Count, copy.Count)
Assert.IsTrue(copy.IsReadOnly)

Assert.IsTrue(ReferenceEquals(copy, copy.MakeReadOnly()))
data = copy.Clone()
Assert.IsFalse(data.IsReadOnly)
Assert.IsFalse(ReferenceEquals(copy, data))
Assert.AreEqual(data.Count, copy.Count)